home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
015
/
fx80bar.bas
< prev
next >
Wrap
BASIC Source File
|
1985-05-31
|
5KB
|
109 lines
10 ' FX80BAR.BAS 01/24/84 STONE & COLLETTE
20 '***************************************************************************
30 ' Experiments with the variable attribute byte in down-loaded characters,
40 ' particularly with bar code characters.
50 '***************************************************************************
60 '*** INITIAL PRINTER SET-UP ***
70 '******************************
80 LPRINT CHR$(27)"p1"; 'PROPORTIONAL MODE MUST BE ON !
90 LPRINT CHR$(15); 'CONDENSED MODE
100 LPRINT CHR$(27)"A"CHR$(4); 'SET LINE SPACING TO 7/72
110 LPRINT CHR$(27)"U1"; 'UNIDIRECTIONAL MODE
120 '**************************************************************************
130 '*** INITIALIZE CUSTOM RAM CHARACTERS ***
140 '****************************************
150 LPRINT CHR$(27)"%"CHR$(1)CHR$(0); 'ACTIVATES RAM
160 LPRINT CHR$(27)"&"CHR$(0)"ap"; 'ALLOCATES RAM CHAR'S a THRU d
170 FOR Y=1 TO 12 'a thru p = 16 char's
180 FOR X=1 TO 16 '12 DATA ITEMS FOR EACH CHAR
190 READ N
200 LPRINT CHR$(N); 'STORES CHAR'S INTO PRINTER RAM
210 NEXT X
220 NEXT Y
230 '*************************************************************************
240 '*** DATA FOR BAR-CODE SEGMENTS ***
250 '**********************************
260 '
270 DATA 139,255,000,255,000,255,000,000,000,255,000,000 :'1A-a
280 DATA 139,255,000,000,000,255,000,255,000,255,000,000 :'2A-b
290 DATA 139,255,000,255,000,255,000,000,000,255,000,255 :'3A-c
300 DATA 139,255,000,000,000,255,000,000,000,000,000,000 :'4A-d
310 DATA 139,255,000,000,000,255,000,000,000,255,000,255 :'DA-e
320 DATA 139,255,000,000,000,255,000,000,000,255,000,000 :'GA-f
330 DATA 139,000,000,000,000,255,000,000,000,255,000,000 :'1B-g
340 DATA 139,255,000,000,000,000,000,000,000,255,000,000 :'3B-h
350 DATA 139,000,000,000,000,255,000,255,000,255,000,000 :'5B-i
360 DATA 139,000,000,000,000,255,000,000,000,255,000,255 :'8B-j
370 DATA 139,255,000,255,000,255,000,000,000,000,000,000 :'EB-k
380 DATA 139,255,000,000,000,000,000,000,000,255,000,255 :'HB-l
390 DATA 139,000,000,000,000,255,000,000,000,000,000,000 :'$B-m
400 DATA 135,255,000,255,000,255,000,000,000,000,000,000 :'1C-n
410 DATA 135,255,000,000,000,255,000,000,000,000,000,000 :'3C-o
420 DATA 135,000,000,000,000,255,000,000,000,000,000,000 :'MC-p
430 '************************************************************************
440 '*** DEFINE BAR-CODED CHARACTERS ***
450 '***********************************
460 '************************************************************************
470 '*** PRINT PROGRAM ***
480 '*********************
490 '
500 '************************************************************************
510 '*** SAVE ROUTINE ***
520 '***********************************************
530 CLEAR 500
540 CLS
550 INPUT "ENTER YOUR MESSAGE:";M$
560 P$="hco"
570 FOR X=1 TO LEN(M$)
580 TEST$=MID$(M$,X,1)
590 IF TEST$="A" THEN P$=P$+"ahn"
600 IF TEST$="B" THEN P$=P$+"bhn"
610 IF TEST$="C" THEN P$=P$+"cdo"
620 IF TEST$="D" THEN P$=P$+"ehn"
630 IF TEST$="E" THEN P$=P$+"ako"
640 IF TEST$="F" THEN P$=P$+"bko"
650 IF TEST$="G" THEN P$=P$+"fin"
660 IF TEST$="H" THEN P$=P$+"alo"
670 IF TEST$="I" THEN P$=P$+"blo"
680 IF TEST$="J" THEN P$=P$+"elo"
690 IF TEST$="K" THEN P$=P$+"adn"
700 IF TEST$="L" THEN P$=P$+"bdn"
710 IF TEST$="M" THEN P$=P$+"cfp"
720 IF TEST$="N" THEN P$=P$+"edn"
730 IF TEST$="O" THEN P$=P$+"aap"
740 IF TEST$="P" THEN P$=P$+"bap"
750 IF TEST$="Q" THEN P$=P$+"fkn"
760 IF TEST$="R" THEN P$=P$+"abp"
770 IF TEST$="S" THEN P$=P$+"bbp"
780 IF TEST$="T" THEN P$=P$+"ebp"
790 IF TEST$="U" THEN P$=P$+"kfn"
800 IF TEST$="V" THEN P$=P$+"lfn"
810 IF TEST$="W" THEN P$=P$+"han"
820 IF TEST$="X" THEN P$=P$+"kao"
830 IF TEST$="Y" THEN P$=P$+"kbo"
840 IF TEST$="Z" THEN P$=P$+"lbo"
850 IF TEST$="1" THEN P$=P$+"agn"
860 IF TEST$="2" THEN P$=P$+"bgn"
870 IF TEST$="3" THEN P$=P$+"cho"
880 IF TEST$="4" THEN P$=P$+"dan"
890 IF TEST$="5" THEN P$=P$+"aio"
900 IF TEST$="6" THEN P$=P$+"bio"
910 IF TEST$="7" THEN P$=P$+"dbn"
920 IF TEST$="8" THEN P$=P$+"ajo"
930 IF TEST$="9" THEN P$=P$+"bjo"
940 IF TEST$="0" THEN P$=P$+"dco"
950 IF TEST$="$" THEN P$=P$+"hmo"
960 IF TEST$="/" THEN P$=P$+"hgp"
970 IF TEST$="+" THEN P$=P$+"hhp"
980 IF TEST$="%" THEN P$=P$+"dhp"
990 IF TEST$="-" THEN P$=P$+"hbn"
1000 IF TEST$="." THEN P$=P$+"keo"
1010 IF TEST$=" " THEN P$=P$+"leo"
1020 NEXT X
1030 P$=P$+"hco"
1040 P$=CHR$(34)+P$+CHR$(34)
1050 FOR R=1 TO 6:LPRINT P$:NEXT
1060 INPUT" PRESS ENTER TO RETURN ";AA:RUN
1030 P$=P$+"hco"
1040 P$=CHR$(34)+P$+CHR$(34)
1050 F